Top 10k strings from Racing Game, The (1986)(Tanglewood Software).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TZX] /

Back to the directory listing

  12 )*B(R(I)):
   4 RUNNERS=12
   4 RUNNERS=11
   4 ;"              ";
   4 ;"                 ";
   3 CASH=CASH+
   3 B(HORSE+132
   3 ;TRUN;"-";A$(R(12
   3 ;"-";A$(I);
   3 ;"             ":
   3 ;"                     ":
   2 YEAR=YEAR+1
   2 WINNINGS=0
   2 RUNNERS=RUNNERS+1
   2 R(RUNNERS)=X:
   2 A(R(I))>DISTANCE
   2 A$(R((I)))=A$(WINA)
   2 ;W(I);"/1"
   2 ;FIRST;"/1"
   2 ;B$(R(Z(I)));
   2 ;A$(R(Z(I)));
   2 ;"GRADES 0 TO ";TTOP
   2 ;"Betting";
   2 ;"AWAITING WEIGH-IN":
   2 ;"4th.=";A$(WIND)
   2 ;"2nd.=";A$(WINB)
   2 ;" ";I-132
   2 )))=A$(WINB)
   2 "Distance=";DISTANCE/16
   1 zm=zm+MO-CG
   1 zm=(zm/100
   1 zl=zl+MO-CG
   1 zl=(zl/100
   1 zk=zk+MO-CG
   1 zk=(zk/100
   1 zj=zj+MO-CG
   1 zj=(zj/100
   1 zh=zh+MO-CG
   1 zh=(zh/100
   1 zg=zg+MO-CG
   1 zg=(zg/100
   1 zf=zf+MO-CG
   1 zf=(zf/100
   1 ze=ze+MO-CG
   1 ze=(ze/100
   1 zd=zd+MO-CG
   1 zd=(zd/100
   1 zc=zc+MO-CG
   1 zc=(zc/100
   1 zb=zb+MO-CG
   1 zb=(zb/100
   1 za=za+MO-CG
   1 za=(za/100
   1 n$="Prizemoney=`":
   1 n$);n$;"-";A$(R(I));
   1 Z(AZ)=Z(D)
   1 YWIN=YWIN+(WINNINGS-BETPLACED)
   1 YSTABLE=YSTABLE+STABLE:
   1 YLOSS=YLOSS+BETPLACED
   1 YJOCK=YJOCK+JOCK:
   1 YENTRY=YENTRY+ENTRY
   1 WINNINGS=W(SELECT)*BETPLACED+BETPLACED
   1 WINB=AMEND:
   1 WINA=WINB:
   1 W(I)=PRICE-2
   1 W(I)=PRICE
   1 VIRSUS=VIRSUS-1
   1 V$="OPEN RACE"
   1 V$="NON-GROUP RACE"
   1 V$="GROUP 3 RACE"
   1 V$="GROUP 2 RACE"
   1 V$="GROUP 1 RACE"
   1 TWIN=YWIN-YLOSS
   1 TRUN=TRUN+1
   1 TRUN,mm-32
   1 TRUN,mm+zm-32
   1 TRAIN=TRAIN-TIME
   1 TLOSS=YLOSS-YWIN
   1 TIME>TRAIN
   1 TIME=TRAIN
   1 STABLE=100
   1 SELECT>TRUN
   1 S(I)=D(R(I))
   1 S(AZ)=S(D)
   1 S(AZ)<S(D)
   1 RUNNERS>11
   1 RACING    x
   1 RACE=RACE+1
   1 RACE=";RACE
   1 R(Z(I))=132
   1 PZ=1000000
   1 PROFIT=(IW+TWIN)-(YSTABLE+YJOCK+YENTRY+TLOSS)
   1 PRINTRACE=0
   1 PRICE=PRICE+2
   1 PLEASE WAIT
   1 PASS=PASS+1
   1 JOCK=KJOCK:
   1 J$="V.SOFT"
   1 J$="HEAVY"
   1 FIRST=W(I)
   1 DISTANCE=DI:
   1 D(X)=(TOP-XX)
   1 D(X)=(TOP-4
   1 D(X)=(TOP-3
   1 D(X)=(TOP-2
   1 D(X)=(TOP-1
   1 D(R(I))>99
   1 D(R(I))=D(R(I))-3
   1 D(R(I))=D(R(I))+AA:
   1 D(R(I))=D(R(I))+4
   1 D(R(I))=D(R(I))+2
   1 D(R(I))=99
   1 D(R(I))=75
   1 D(R(I))<75
   1 D(I)=D(I)-5
   1 D(I)=D(I)-
   1 D(I)=D(I)+7
   1 D(I)=D(I)+5
   1 D(I)=D(I)+4
   1 D(I)=D(I)+2
   1 D(I)=D(I)+1
   1 D(I)=D(I)+
   1 Created with Ramsoft MakeTZX
   1 CZ=RUNNERS-GAP:
   1 CG=CG*.075
   1 CASH>10000000
   1 CASH=CASH-STABLE
   1 CASH=CASH-JOCK:
   1 CASH=CASH-ENTRY
   1 CASH=CASH-BETPLACED
   1 CASH=CASH+WINNINGS:
   1 CASH=36000
   1 CASH=10000000
   1 BETPLACED>xx
   1 BETPLACED>0
   1 BETPLACED=0
   1 BETPLACED=
   1 BET=R(Z((SELECT)))
   1 B(R(I))=B(R(I))+6
   1 B(R(I))=99
   1 B(R(I))=80
   1 B(R(I))<95
   1 B(I)=B(I)-10
   1 B(I)=B(I)-(LV*2
   1 B$(R(Z(I)),6
   1 B$(I)=" ":
   1 Air Trooper Bay Express Pacesetter  Conclusion  Quickstep   Civility    Sundowner   Solemn Vow  Notebook    Diplomatic  Super Star  Dramatist   Observed    Colour Fast Namesake    In Vain     Camelot     Mail Order  Jenny Wren  Silken Lady My Houdini  Foursome    Not NegativeFormalist   AlphanumericHarris TweedAll Cheers  Button Boy  My Maestro  Cover Up    Topsy Turvy Even Chance Dreaming    Fast ForwardHigh TensionCaptiva     Absolute    Free Gift   Our Supremo En Route    For Glory   Our Sailor  Simply GrandMainstand   Cheerup     Lucky Seven Tit for Tat Thriftless  Hackneycab  No Change   My Empire   Take Care   Always HappyTwo Plus TwoKeep Pace   Unguarded   Inheritance Caring      Super Snip  Invincible  Hot Trail   Fair Share  Chasing GoldBox Clever  Hot Line    Quick Cut   Blockbuster Top Hope    Fixed Rate  Squealing   Coming Dawn Flurried    Count Down  Satirical   Fair Cop    Best Buy    Shake Up    Lifeless    First Name  No Excuse   Payup       Timeout     Here We Go  Top Rating  Dead Sea    Me
   1 AZ=AZ-GAP:
   1 AMEND=WINA:
   1 A$(WINC)=A$(R(12
   1 A$(WINB)=A$(R(12
   1 A$(WINA)=A$(R(12
   1 A$(WINA)=A$(BET)
   1 A$(R(Z(I)))=A$(WIND)
   1 A$(R(Z(I)))=A$(WINC)
   1 A$(R(Z(I)))=A$(WINB)
   1 A$(R(Z(I)))=A$(WINA)
   1 A$(R(Z(I)))=A$(MINE)
   1 A$(R(I))=A$(WIND)
   1 A$(R(I))=A$(WINC)
   1 A$(R(I))=A$(WINB)
   1 A$(R(I))=A$(WINA)
   1 ;n$;PRIZE:
   1 ;B$(R(I));
   1 ;;"Enter amount of bet `";n$
   1 ;;"  NO RUNNER   ":
   1 ;"f";"-MAX.G'DE ";TTOP
   1 ;"`";BETPLACED;" placed on ";A$(BET)
   1 ;"Your horse brokedown"
   1 ;"You pay Bookies `";BETPLACED:
   1 ;"YOUR FINANCES"
   1 ;"Which one?":
   1 ;"WITH 2F TO RUN"
   1 ;"WE PICK THE RUNNERS UP"
   1 ;"VIRSUS HITS YOUR STABLE":
   1 ;"TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT"
   1 ;"TTTTTTTTTTTTTT"
   1 ;"TTTTTTTTTTTT";
   1 ;"Stable Costs";
   1 ;"STEWARDS ENQUIRY":
   1 ;"RESULT STANDS   ":
   1 ;"RESULT AMENDED  ":
   1 ;"RACE ";RACE
   1 ;"Prizemoney(25%) `";
   1 ;"Press any key to continue"
   1 ;"Pre-Race report y/n?":
   1 ;"PROFIT";
   1 ;"OPEN (All Grades)":
   1 ;"No YOUR HORSES   FORM  G'DE W'GT"
   1 ;"No  HORSES        FORM   PRICE  "
   1 ;"No   RUNNERS       FORM  WEIGHT "
   1 ;"No     Horse      Form  G'de Fit"
   1 ;"NOT ELIGABLE":
   1 ;"NON-GROUP (GRADE 0-";TTOP;")":
   1 ;"NO MONEY-NO JOB!":
   1 ;"NEXT RACE OVER ";DISTANCE/16
   1 ;"NAME HORSE-Name must be 12chars.long,enter blanks if required   "
   1 ;"MAX.BET=`";xx:
   1 ;"Jockey Fees";
   1 ;"JOCKEYS ORDERS"
   1 ;"INCOME":
   1 ;"Horse no ";I-XXX
   1 ;"Happy with name y/n?":
   1 ;"Grade=";D(I)
   1 ;"Going=";J$
   1 ;"GROUP 3 RACE (GRADES (0-";TTOP;")":
   1 ;"GROUP 2 RACE (GRADES (0-";TTOP;")":
   1 ;"GROUP 1 RACE (GRADES 0-";TTOP;")":
   1 ;"GOING=";J$
   1 ;"Entry Fees";
   1 ;"Entry Fee=`";ENTRY
   1 ;"Enter number of horse";n$
   1 ;"Enter name .............";
   1 ;"Enter Number of horse";n$
   1 ;"EXPENDITURE"
   1 ;"ENTER YOUR CHOICE"
   1 ;"END OF SEASON"
   1 ;"Distance=";DISTANCE/16
   1 ;"CASH=`";CASH:
   1 ;"Bookies Pay You `";WINNINGS:
   1 ;"Bet y/n?":
   1 ;"Bet Placed on ";A$(BET)
   1 ;"BETTING"
   1 ;"AMENDED RESULT":
   1 ;"A MAXIMUM OF 5 HOURS CAN BE USEDTO TRAIN HORSES OF YOUR CHOICE  ":
   1 ;"A 2/3 MINUTE DELAY WILL OCCUR":
   1 ;"9-";A$(R(9
   1 ;"8-";A$(R(8
   1 ;"7-";A$(R(7
   1 ;"6-";A$(R(6
   1 ;"5-";A$(R(5
   1 ;"4-";A$(R(4
   1 ;"3rd.Prize=`";PZC
   1 ;"3rd.=";A$(WINC)
   1 ;"3rd.=";A$
   1 ;"3-Wait for a late run"
   1 ;"3-Save Game      ";
   1 ;"3-No change   ";
   1 ;"3-";A$(R(3
   1 ;"2yo form=";B$(I)
   1 ;"2nd.Prize=`";PZB
   1 ;"2-Your horses ";
   1 ;"2-Start New Game ";
   1 ;"2-Go straight to the front"
   1 ;"2-";A$(R(2
   1 ;"1st.Prize=`";PRIZE;
   1 ;"1st.Prize=`";PRIZE
   1 ;"1st.=";A$(WINA):
   1 ;"1st.=";A$(WINA)
   1 ;"1hours Training=+1%"
   1 ;"11-";A$(R(11
   1 ;"10-";A$(R(10
   1 ;"1-Leave it to the jockey"
   1 ;"1-Go Next Race   ";
   1 ;"1-All horses  ";
   1 ;"1-";A$(R(1
   1 ;" OF SKILL LEVEL  "
   1 ;" NAME CHANGES ":
   1 ;"  WHICH ONE?  ";
   1 ;"  Select your horse ":
   1 ;"  RETURN TO MENU ":
   1 ;"  ";TRAIN;" Hours Available"
   1 ;"   See yours y/n?   ":
   1 ;"   Enter one y/n?   ":
   1 ;"    Which One?   ";
   1 ;"    MAIN MENU    "
   1 ;"    IMPOSSIBLE   ";
   1 ;"     AVERAGE     ";
   1 ;"     1,2,or3     ";
   1 ;"      EASY       ";
   1 ;"       -4-       ":
   1 ;"       -3-       ":
   1 ;"       -2-       ":
   1 ;"       -1-       ":
   1 ;"         ":
   1 ;"              ":
   1 ;"                 ":
   1 ; "Enter number of hours";n$
   1 5000        
   1 00130/04103/00010/13001/00043/10410/00100/  112/34040/30134/00300/30120/  121/20401/01012/22210/ 1101/  144/   21/ 0003/   00/00100/11030/ 0200/03001/10013/   00/   11/14303/00414/  002/  004/30110/11041/10100/13203/   11/  131/ 3232/30200/   12/ 1314/   22/   13/00043/30114/42201/  110/   00/10300/44001/31002/22020/  003/24031/  030/33103/  000/ 0010/  214/   12/21300/13031/    1/   00/00303/04300/  134/01003/24100/00130/ 1414/   00/   11/  111/00303/ 2411/    1/ 3144/    1/33001/ 0030/04330/00040/20441/    1/10003/13103/   11/12023/02020/03401/00420/   00/01023/ 1210/13404/01003/  003/  000/33301/  004/   12/11001/01010/10230/42010/  000/ 4110/    1/00031/10110/00314/01023/11012/    1/   00/02400/    1/00202/  124/  004/  000/ 0403/  030/  231/40103/41002/00324/ 1041/   21/24100/    1/  020/13001/    0/ 0004/43014/   11/   00/41002/    2/30201/   21/    0/  121/   21/
   1 )=B(HORSE+132
   1 )=B$(R(I),2
   1 )="Non-Runner"
   1 (RUNNERS-1
   1 (DISTANCE-A(R(I))):
   1 (DISTANCE-A(I)):
   1 (C(R(I))-GOING):
   1 (C(I)-GOING):
   1 "Would be a shock winner"
   1 "Outside chance only"
   1 "Not his trip"
   1 "Needs the race":
   1 "Nearly fully fit":
   1 "Must run really well"
   1 "May get the trip well":
   1 "Loves the going":
   1 "Ideal distance":
   1 "Hates the going"
   1 "Fully fit":
   1 "Enter horses number";n$
   1 "Doubts over the trip":
   1 "Doubts over going":
   1 "Dislikes the going":
   1 "Could run well"
   1 "Back this one!"